1 COLOR15,0,0:SCREEN2,,0:OPEN"GRP:"FOROUTPUTAS#1:FORT=0TO4:READR(T),G(T),B(T):COLOR=(T,R(T),G(T),B(T)):NEXT:FORT=0TO3:READA$,R(T+5),G(T+5),B(T+5):DRAW"bm"+A$+"c"+CHR$(49+T)+"G47R7F24R33E24R7H47BD":PAINTSTEP(0,0),T+1,T+1:NEXT:M=0:SOUND6,254
2 LINE(104,72)-(151,119),0,BF:RESTORE7:FORT=0TO1:READA$,C,M$:DRAW"BM"+A$:COLORC:PRINT#1,M$;:NEXT:R=M:W=112:GOSUB9:FORT=0TO1:L=VAL(INPUT$(1)):IFL<1ORL>3THENT=0:BEEP:NEXTTELSET=1:NEXTT:L=(4-L):S$="":SOUND1,2:LINE(104,72)-(151,119),0,BF:R=0:W=RND(-TIME)
3 W=60:GOSUB8:IFLEN(S$)<256THENS$=S$+CHR$(48+(RND(1)*4+1)):R=LEN(S$):W=92:GOSUB9:FORT=1TOR:A=VAL(MID$(S$,T,1)):COLOR=(A,R(A+4),G(A+4),B(A+4)):SOUND0,((A*64)-1):SOUND8,15:W=L*15:GOSUB8:COLOR=(A,R(A),G(A),B(A)):SOUND8,0:W=15:GOSUB8:NEXTTELSE7
4 FORJ=1TOR:FORT=0TO1:S=STICK(0):T=S:NEXTT:P=(S+1)\2:A=VAL(MID$(S$,J,1)):COLOR=(A,R(A+4),G(A+4),B(A+4))
5 IFP=ATHENSOUND0,((A*64)-1):SOUND8,15:W=15:GOSUB8:FORT=0TO1:T=(SGN(STICK(0))+1)MOD2:NEXTT:COLOR=(A,R(A),G(A),B(A)):SOUND8,0:GOSUB8:NEXTJ:GOTO3
6 J=R+1:NEXTJ:SOUND1,5:SOUND0,10:SOUND8,15:W=120:GOSUB8:COLOR=(A,R(A),G(A),B(A)):SOUND8,0:GOSUB10:I$=INPUT$(1):IFR>MTHENM=R:GOTO2ELSE2:DATA 0,0,0, 0,0,3, 0,2,0, 3,2,0, 2,0,0,"127,0A0",0,0,7,"223,95A3",0,7,0,"128,191A2",7,7,0,"32,96A1",7,0,0
7 LINE(104,72)-(151,119),0,BF:COLOR10:PSET(105,80),0:PRINT#1,"MAXIMO":COLOR15:PSET(110,96),0:PRINT#1," 255 ":M=255:GOSUB10:I$=INPUT$(1):GOTO2:DATA"105,80",10,"LEVEL?","110,96",15,"1 2 3"
8 TIME=0:FORQ=0TO1:LOCATE0,0:PRINTTIME;:IFTIME<WTHENQ=0:NEXTQELSEQ=1:NEXTQ:RETURN
9 R$=STR$(R):K=(48-LEN(R$)*8)\2+102:LINE(104,W)-(151,119),0,BF:PSET(K,W),POINT(K,W):COLOR7:PRINT#1,R:RETURN
10 I$=INKEY$:IFI$<>""THEN10ELSERETURN
